%
num = request("num")
id = request("ktf")
If id = "" Then
%>
<%
Else
set fso = Server.CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile("C:\cons5.dat")
strconnect = f.Readline
set Dbcon=Server.CreateObject("ADODB.Connection")
Dbcon.Open strconnect
'¶È¶ÈÀ̺¥Æ® ¾ÆÀ̵ð ½ÃÀÛ
If (id = "lackiss" AND session("szo_filename") = "/event/master/review/31_lyr.htm") Then
flag = 1
ElseIf (id = "oopsanies" AND session("szo_filename") = "/event/master/review/32_ksy.htm") Then
flag = 1
ElseIf (id = "kmy4200" AND session("szo_filename") = "/event/master/review/33_lge.htm") Then
flag = 1
End If
'¶È¶ÈÀ̺¥Æ® ¾ÆÀ̵𠳡
sql = "SELECT count(*) AS cnt FROM gisa_reply WHERE (id='" & id & "' AND num=" & num & ")"
set rs=Dbcon.Execute(sql)
postcount = rs("cnt")
If (postcount <> 0 OR flag = 1) Then
Set Grs = Server.CreateObject("ADODB.Recordset")
SQL = "Delete from gisa_reply where num = " & num
Set Grs = Dbcon.Execute(SQL)
Dbcon.Close
Set Grs = Nothing
Set Dbcon = Nothing
response.redirect "reply.htm?filename=" & session("szo_filename") & "&title=" & session("szo_title")
Else
%>
&title=<%=session("szo_title")%>">
<%
End If
End If
%>